/ BCI NET 2 / BCI NET 2.iso / archives / programming / source / a2.0bemacs-src.lha / Emacs-19.25 / site-lisp / vm-misc.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 64 67 69 6c 62 65 72 |piled by| dgilber|
|00000020| 74 40 67 61 6d 69 67 61 | 2e 67 75 65 6c 70 68 6e |t@gamiga|.guelphn|
|00000030| 65 74 2e 64 77 65 6f 6d | 65 72 2e 6f 72 67 20 6f |et.dweom|er.org o|
|00000040| 6e 20 57 65 64 20 44 65 | 63 20 32 38 20 32 32 3a |n Wed De|c 28 22:|
|00000050| 33 33 3a 32 38 20 31 39 | 39 34 0a 3b 3b 3b 20 66 |33:28 19|94.;;; f|
|00000060| 72 6f 6d 20 66 69 6c 65 | 20 66 69 76 65 3a 43 57 |rom file| five:CW|
|00000070| 6f 72 6b 2f 65 6d 61 63 | 73 2d 31 39 2e 32 35 2f |ork/emac|s-19.25/|
|00000080| 76 6d 2f 76 6d 2d 6d 69 | 73 63 2e 65 6c 0a 3b 3b |vm/vm-mi|sc.el.;;|
|00000090| 3b 20 65 6d 61 63 73 20 | 76 65 72 73 69 6f 6e 20 |; emacs |version |
|000000a0| 31 39 2e 32 35 2e 31 2e | 0a 3b 3b 3b 20 62 79 74 |19.25.1.|.;;; byt|
|000000b0| 65 63 6f 6d 70 20 76 65 | 72 73 69 6f 6e 20 46 53 |ecomp ve|rsion FS|
|000000c0| 46 20 32 2e 31 30 0a 3b | 3b 3b 20 6f 70 74 69 6d |F 2.10.;|;; optim|
|000000d0| 69 7a 61 74 69 6f 6e 20 | 69 73 20 6f 6e 2e 0a 3b |ization |is on..;|
|000000e0| 3b 3b 20 74 68 69 73 20 | 66 69 6c 65 20 75 73 65 |;; this |file use|
|000000f0| 73 20 6f 70 63 6f 64 65 | 73 20 77 68 69 63 68 20 |s opcode|s which |
|00000100| 64 6f 20 6e 6f 74 20 65 | 78 69 73 74 20 69 6e 20 |do not e|xist in |
|00000110| 45 6d 61 63 73 20 31 38 | 2e 0a 0a 28 69 66 20 28 |Emacs 18|...(if (|
|00000120| 61 6e 64 20 28 62 6f 75 | 6e 64 70 20 27 65 6d 61 |and (bou|ndp 'ema|
|00000130| 63 73 2d 76 65 72 73 69 | 6f 6e 29 0a 09 20 28 6f |cs-versi|on).. (o|
|00000140| 72 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |r (and (|boundp '|
|00000150| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 20 |epoch::v|ersion) |
|00000160| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 0a |epoch::v|ersion).|
|00000170| 09 20 20 20 20 20 28 73 | 74 72 69 6e 67 2d 6c 65 |.     (s|tring-le|
|00000180| 73 73 70 20 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |ssp emac|s-versio|
|00000190| 6e 20 22 31 39 22 29 29 | 29 0a 20 20 20 20 28 65 |n "19"))|).    (e|
|000001a0| 72 72 6f 72 20 22 60 66 | 69 76 65 3a 43 57 6f 72 |rror "`f|ive:CWor|
|000001b0| 6b 2f 65 6d 61 63 73 2d | 31 39 2e 32 35 2f 76 6d |k/emacs-|19.25/vm|
|000001c0| 2f 76 6d 2d 6d 69 73 63 | 2e 65 6c 27 20 77 61 73 |/vm-misc|.el' was|
|000001d0| 20 63 6f 6d 70 69 6c 65 | 64 20 66 6f 72 20 45 6d | compile|d for Em|
|000001e0| 61 63 73 20 31 39 22 29 | 29 0a 0a 28 64 65 66 61 |acs 19")|)..(defa|
|000001f0| 6c 69 61 73 20 27 76 6d | 2d 64 65 6c 65 74 65 2d |lias 'vm|-delete-|
|00000200| 6e 6f 6e 2d 6d 61 74 63 | 68 69 6e 67 2d 73 74 72 |non-matc|hing-str|
|00000210| 69 6e 67 73 20 23 5b 28 | 72 65 67 65 78 70 20 6c |ings #[(|regexp l|
|00000220| 69 73 74 20 26 6f 70 74 | 69 6f 6e 61 6c 20 64 65 |ist &opt|ional de|
|00000230| 73 74 72 75 63 74 69 76 | 65 6c 79 29 20 22 08 84 |structiv|ely) "..|
|00000240| 08 00 c1 5c 6e 21 12 5c | 6e c3 1c 89 1d 83 3b 00 |...\n!.\|n.....;.|
|00000250| c6 0e 07 0d 40 5c 22 83 | 5c 22 00 0d 14 0d 41 89 |....@\".|\"....A.|
|00000260| 15 82 0d 00 5c 66 84 2f | 00 5c 6e 41 89 12 89 15 |....\f./|.\nA....|
|00000270| 82 0d 00 5c 66 0d 41 a1 | 88 0d 41 89 15 84 10 00 |...\f.A.|..A.....|
|00000280| 5c 6e 2a 87 22 20 5b 64 | 65 73 74 72 75 63 74 69 |\n*." [d|estructi|
|00000290| 76 65 6c 79 20 63 6f 70 | 79 2d 73 65 71 75 65 6e |vely cop|y-sequen|
|000002a0| 63 65 20 6c 69 73 74 20 | 6e 69 6c 20 70 72 65 76 |ce list |nil prev|
|000002b0| 20 63 75 72 72 20 73 74 | 72 69 6e 67 2d 6d 61 74 | curr st|ring-mat|
|000002c0| 63 68 20 72 65 67 65 78 | 70 5d 20 34 20 22 5c 0a |ch regex|p] 4 "\.|
|000002d0| 44 65 6c 65 74 65 20 73 | 74 72 69 6e 67 73 20 6d |Delete s|trings m|
|000002e0| 61 74 63 68 69 6e 67 20 | 52 45 47 45 58 50 20 66 |atching |REGEXP f|
|000002f0| 72 6f 6d 20 4c 49 53 54 | 2e 0a 4f 70 74 69 6f 6e |rom LIST|..Option|
|00000300| 61 6c 20 74 68 69 72 64 | 20 61 72 67 20 6e 6f 6e |al third| arg non|
|00000310| 2d 6e 69 6c 20 6d 65 61 | 6e 73 20 74 6f 20 64 65 |-nil mea|ns to de|
|00000320| 73 74 72 75 63 74 69 76 | 65 6c 79 20 61 6c 74 65 |structiv|ely alte|
|00000330| 72 20 4c 49 53 54 2c 20 | 69 6e 73 74 65 61 64 20 |r LIST, |instead |
|00000340| 6f 66 0a 77 6f 72 6b 69 | 6e 67 20 6f 6e 20 61 20 |of.worki|ng on a |
|00000350| 63 6f 70 79 2e 0a 0a 54 | 68 65 20 6e 65 77 20 76 |copy...T|he new v|
|00000360| 65 72 73 69 6f 6e 20 6f | 66 20 74 68 65 20 6c 69 |ersion o|f the li|
|00000370| 73 74 2c 20 6d 69 6e 75 | 73 20 74 68 65 20 64 65 |st, minu|s the de|
|00000380| 6c 65 74 65 64 20 73 74 | 72 69 6e 67 73 2c 20 69 |leted st|rings, i|
|00000390| 73 20 72 65 74 75 72 6e | 65 64 2e 22 5d 29 0a 28 |s return|ed."]).(|
|000003a0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 c2 5c 22 |byte-cod|e "...\"|
|000003b0| 88 c0 c3 c4 5c 22 88 c0 | c5 c6 5c 22 88 c0 c7 c8 |....\"..|..\"....|
|000003c0| 5c 22 88 c0 c9 ca 5c 22 | 88 c0 cb cc 5c 22 88 c0 |\"....\"|....\"..|
|000003d0| cd ce 5c 22 88 c0 cf d0 | 5c 22 88 c0 d1 d2 5c 22 |..\"....|\"....\"|
|000003e0| 88 d3 d4 d5 d6 23 88 d3 | d4 d7 d8 23 88 c0 d9 da |.....#..|...#....|
|000003f0| 5c 22 88 c0 db dc 5c 22 | 88 c0 dd de 5c 22 88 c0 |\"....\"|....\"..|
|00000400| df e0 5c 22 88 c0 e1 e2 | 5c 22 88 c0 e3 e4 5c 22 |..\"....|\"....\"|
|00000410| 88 c0 e5 e6 5c 22 88 c0 | e7 e8 5c 22 88 c0 e9 ea |....\"..|..\"....|
|00000420| 5c 22 88 c0 eb ec 5c 22 | 88 c0 ed ee 5c 22 88 c0 |\"....\"|....\"..|
|00000430| ef f0 5c 22 87 22 20 5b | 64 65 66 61 6c 69 61 73 |..\"." [|defalias|
|00000440| 20 76 6d 2d 70 61 72 73 | 65 20 23 5b 28 73 74 72 | vm-pars|e #[(str|
|00000450| 69 6e 67 20 72 65 67 65 | 78 70 20 26 6f 70 74 69 |ing rege|xp &opti|
|00000460| 6f 6e 61 6c 20 6d 61 74 | 63 68 6e 29 20 22 08 84 |onal mat|chn) "..|
|00000470| 06 00 c1 10 c2 1b c4 c2 | 21 88 c5 0e 06 0e 07 c8 |........|!.......|
|00000480| 95 23 83 24 00 0e 07 08 | 94 08 95 4f 0b 42 13 82 |.#.$....|...O.B..|
|00000490| 5c 66 00 0b 9f 29 87 22 | 20 5b 6d 61 74 63 68 6e |\f...)."| [matchn|
|000004a0| 20 31 20 6e 69 6c 20 6c | 69 73 74 20 73 74 6f 72 | 1 nil l|ist stor|
|000004b0| 65 2d 6d 61 74 63 68 2d | 64 61 74 61 20 73 74 72 |e-match-|data str|
|000004c0| 69 6e 67 2d 6d 61 74 63 | 68 20 72 65 67 65 78 70 |ing-matc|h regexp|
|000004d0| 20 73 74 72 69 6e 67 20 | 30 5d 20 34 5d 20 76 6d | string |0] 4] vm|
|000004e0| 2d 70 61 72 73 65 2d 61 | 64 64 72 65 73 73 65 73 |-parse-a|ddresses|
|000004f0| 20 23 5b 28 73 74 72 69 | 6e 67 29 20 22 08 3f 3f | #[(stri|ng) ".??|
|00000500| 85 e1 00 c1 1a 8a c3 8e | c1 89 89 89 1c 1d 1e 06 |........|........|
|00000510| 1e 07 c8 c9 21 89 12 71 | 88 08 63 88 65 62 88 ca |....!..q|..c.eb..|
|00000520| c1 77 88 60 16 06 6d 84 | c4 00 cb c1 77 88 67 89 |.w.`..m.|....w.g.|
|00000530| 14 cc 55 83 46 00 cd 75 | 88 6d 84 29 00 cd 75 88 |..U.F..u|.m.)..u.|
|00000540| 82 29 00 5c 66 ce 55 83 | 71 00 0e 06 60 7b 15 cf |.).\f.U.|q...`{..|
|00000550| d0 0d 5c 22 83 5e 00 0d | d1 98 84 64 00 0d 0e 07 |..\".^..|...d....|
|00000560| 42 16 07 cd 75 88 ca c1 | 77 88 60 16 06 82 29 00 |B...u...|w.`...).|
|00000570| 5c 66 d2 55 83 83 00 cd | 75 88 d3 d4 c1 d5 23 88 |\f.U....|u.....#.|
|00000580| 82 29 00 5c 66 d6 55 83 | 29 00 cd 1e 17 cd 75 88 |.).\f.U.|).....u.|
|00000590| 6d 84 c0 00 0e 17 d5 55 | 84 c0 00 d3 d8 c1 d5 23 |m......U|.......#|
|000005a0| 88 6d 84 8f 00 68 d6 55 | 83 b2 00 0e 17 54 16 17 |.m...h.U|.....T..|
|000005b0| 82 8f 00 68 d9 55 83 8f | 00 0e 17 53 16 17 82 8f |...h.U..|...S....|
|000005c0| 00 29 82 29 00 0e 06 60 | 7b 15 cf d0 0d 5c 22 84 |.).)...`|{....\".|
|000005d0| dc 00 0d d1 98 84 dc 00 | 0d 0e 07 42 16 07 0e 07 |........|...B....|
|000005e0| 9f 2e 07 87 22 20 5b 73 | 74 72 69 6e 67 20 6e 69 |...." [s|tring ni|
|000005f0| 6c 20 77 6f 72 6b 2d 62 | 75 66 66 65 72 20 28 28 |l work-b|uffer ((|
|00000600| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 83 08 00 c1 |byte-cod|e ".....|
|00000610| 08 21 88 c1 87 22 20 5b | 77 6f 72 6b 2d 62 75 66 |.!..." [|work-buf|
|00000620| 66 65 72 20 6b 69 6c 6c | 2d 62 75 66 66 65 72 5d |fer kill|-buffer]|
|00000630| 20 32 29 29 20 63 68 61 | 72 20 73 20 73 74 61 72 | 2)) cha|r s star|
|00000640| 74 20 6c 69 73 74 20 67 | 65 6e 65 72 61 74 65 2d |t list g|enerate-|
|00000650| 6e 65 77 2d 62 75 66 66 | 65 72 20 22 2a 76 6d 2d |new-buff|er "*vm-|
|00000660| 77 6f 72 6b 2a 22 20 22 | 09 5c 66 5c 6e 0d 20 22 |work*" "|.\f\n. "|
|00000670| 20 22 5e 5c 22 5c 5c 2c | 28 22 20 39 32 20 31 20 | "^\"\\,|(" 92 1 |
|00000680| 34 34 20 73 74 72 69 6e | 67 2d 6d 61 74 63 68 20 |44 strin|g-match |
|00000690| 22 5e 5b 09 5c 66 5c 6e | 0d 20 5d 2b 24 22 20 22 |"^[.\f\n|. ]+$" "|
|000006a0| 22 20 33 34 20 72 65 2d | 73 65 61 72 63 68 2d 66 |" 34 re-|search-f|
|000006b0| 6f 72 77 61 72 64 20 22 | 5b 5e 5c 5c 5d 5c 22 22 |orward "|[^\\]\""|
|000006c0| 20 30 20 34 30 20 70 61 | 72 65 6e 73 20 22 5b 5e | 0 40 pa|rens "[^|
|000006d0| 5c 5c 5d 5b 28 29 5d 22 | 20 34 31 5d 20 35 5d 20 |\\][()]"| 41] 5] |
|000006e0| 76 6d 2d 77 72 69 74 65 | 2d 73 74 72 69 6e 67 20 |vm-write|-string |
|000006f0| 23 5b 28 77 68 65 72 65 | 20 73 74 72 69 6e 67 29 |#[(where| string)|
|00000700| 20 22 c0 09 21 83 14 00 | 70 1a c3 8e 09 71 88 64 | "..!...|p....q.d|
|00000710| 62 88 5c 66 63 2a 87 c5 | 1e 06 c7 8e 8a c8 c9 21 |b.\fc*..|.......!|
|00000720| 89 16 06 71 88 5c 66 63 | 88 ca 65 64 09 cb cc 25 |...q.\fc|..ed...%|
|00000730| 2b 87 22 20 5b 62 75 66 | 66 65 72 70 20 77 68 65 |+." [buf|ferp whe|
|00000740| 72 65 20 76 6d 2d 73 62 | 65 2d 62 75 66 66 65 72 |re vm-sb|e-buffer|
|00000750| 20 28 28 62 79 74 65 2d | 63 6f 64 65 20 22 08 70 | ((byte-|code ".p|
|00000760| 3d 84 0f 00 c1 08 21 83 | 0f 00 08 71 88 c1 87 22 |=.....!.|...q..."|
|00000770| 20 5b 76 6d 2d 73 62 65 | 2d 62 75 66 66 65 72 20 | [vm-sbe|-buffer |
|00000780| 62 75 66 66 65 72 2d 6e | 61 6d 65 5d 20 32 29 29 |buffer-n|ame] 2))|
|00000790| 20 73 74 72 69 6e 67 20 | 6e 69 6c 20 74 65 6d 70 | string |nil temp|
|000007a0| 2d 62 75 66 66 65 72 20 | 28 28 62 79 74 65 2d 63 |-buffer |((byte-c|
|000007b0| 6f 64 65 20 22 08 83 08 | 00 c1 08 21 88 c1 87 22 |ode "...|...!..."|
|000007c0| 20 5b 74 65 6d 70 2d 62 | 75 66 66 65 72 20 6b 69 | [temp-b|uffer ki|
|000007d0| 6c 6c 2d 62 75 66 66 65 | 72 5d 20 32 29 29 20 67 |ll-buffe|r] 2)) g|
|000007e0| 65 6e 65 72 61 74 65 2d | 6e 65 77 2d 62 75 66 66 |enerate-|new-buff|
|000007f0| 65 72 20 22 2a 76 6d 2d | 77 6f 72 6b 2a 22 20 77 |er "*vm-|work*" w|
|00000800| 72 69 74 65 2d 72 65 67 | 69 6f 6e 20 74 20 71 75 |rite-reg|ion t qu|
|00000810| 69 65 74 5d 20 37 5d 20 | 76 6d 2d 6d 61 72 6b 65 |iet] 7] |vm-marke|
|00000820| 72 20 28 6d 61 63 72 6f | 20 2e 20 23 5b 28 70 6f |r (macro| . #[(po|
|00000830| 73 20 26 6f 70 74 69 6f | 6e 61 6c 20 62 75 66 66 |s &optio|nal buff|
|00000840| 65 72 29 20 22 c0 c1 5c | 6e 0b 46 87 22 20 5b 73 |er) "..\|n.F." [s|
|00000850| 65 74 2d 6d 61 72 6b 65 | 72 20 28 6d 61 6b 65 2d |et-marke|r (make-|
|00000860| 6d 61 72 6b 65 72 29 20 | 70 6f 73 20 62 75 66 66 |marker) |pos buff|
|00000870| 65 72 5d 20 34 5d 29 20 | 76 6d 2d 69 6e 63 72 65 |er] 4]) |vm-incre|
|00000880| 6d 65 6e 74 20 28 6d 61 | 63 72 6f 20 2e 20 23 5b |ment (ma|cro . #[|
|00000890| 28 76 61 72 69 61 62 6c | 65 29 20 22 c0 09 c2 09 |(variabl|e) "....|
|000008a0| 44 45 87 22 20 5b 73 65 | 74 71 20 76 61 72 69 61 |DE." [se|tq varia|
|000008b0| 62 6c 65 20 31 2b 5d 20 | 34 5d 29 20 76 6d 2d 64 |ble 1+] |4]) vm-d|
|000008c0| 65 63 72 65 6d 65 6e 74 | 20 28 6d 61 63 72 6f 20 |ecrement| (macro |
|000008d0| 2e 20 23 5b 28 76 61 72 | 69 61 62 6c 65 29 20 22 |. #[(var|iable) "|
|000008e0| c0 09 c2 09 44 45 87 22 | 20 5b 73 65 74 71 20 76 |....DE."| [setq v|
|000008f0| 61 72 69 61 62 6c 65 20 | 31 2d 5d 20 34 5d 29 20 |ariable |1-] 4]) |
|00000900| 76 6d 2d 73 65 6c 65 63 | 74 2d 66 6f 6c 64 65 72 |vm-selec|t-folder|
|00000910| 2d 62 75 66 66 65 72 20 | 28 6d 61 63 72 6f 20 2e |-buffer |(macro .|
|00000920| 20 23 5b 6e 69 6c 20 22 | c0 87 22 20 5b 28 61 6e | #[nil "|.." [(an|
|00000930| 64 20 76 6d 2d 6d 61 69 | 6c 2d 62 75 66 66 65 72 |d vm-mai|l-buffer|
|00000940| 20 28 6f 72 20 28 62 75 | 66 66 65 72 2d 6e 61 6d | (or (bu|ffer-nam|
|00000950| 65 20 76 6d 2d 6d 61 69 | 6c 2d 62 75 66 66 65 72 |e vm-mai|l-buffer|
|00000960| 29 20 28 65 72 72 6f 72 | 20 22 46 6f 6c 64 65 72 |) (error| "Folder|
|00000970| 20 62 75 66 66 65 72 20 | 68 61 73 20 62 65 65 6e | buffer |has been|
|00000980| 20 6b 69 6c 6c 65 64 2e | 22 29 29 20 28 73 65 74 | killed.|")) (set|
|00000990| 2d 62 75 66 66 65 72 20 | 76 6d 2d 6d 61 69 6c 2d |-buffer |vm-mail-|
|000009a0| 62 75 66 66 65 72 29 29 | 5d 20 31 5d 29 20 76 6d |buffer))|] 1]) vm|
|000009b0| 2d 63 68 65 63 6b 2d 66 | 6f 72 2d 6b 69 6c 6c 65 |-check-f|or-kille|
|000009c0| 64 2d 73 75 6d 6d 61 72 | 79 20 23 5b 6e 69 6c 20 |d-summar|y #[nil |
|000009d0| 22 c0 09 21 85 2e 00 c2 | 09 21 3f 85 2e 00 0b 1c |"..!....|.!?.....|
|000009e0| c5 11 5c 66 85 2d 00 5c | 66 40 c6 48 c7 c5 49 88 |..\f.-.\|f@.H..I.|
|000009f0| 5c 66 40 c6 48 c8 c5 49 | 88 5c 66 41 89 14 84 15 |\f@.H..I|.\fA....|
|00000a00| 00 c5 29 87 22 20 5b 62 | 75 66 66 65 72 70 20 76 |..)." [b|ufferp v|
|00000a10| 6d 2d 73 75 6d 6d 61 72 | 79 2d 62 75 66 66 65 72 |m-summar|y-buffer|
|00000a20| 20 62 75 66 66 65 72 2d | 6e 61 6d 65 20 76 6d 2d | buffer-|name vm-|
|00000a30| 6d 65 73 73 61 67 65 2d | 6c 69 73 74 20 6d 70 20 |message-|list mp |
|00000a40| 6e 69 6c 20 31 20 33 20 | 34 5d 20 34 5d 20 76 6d |nil 1 3 |4] 4] vm|
|00000a50| 2d 65 72 72 6f 72 2d 69 | 66 2d 66 6f 6c 64 65 72 |-error-i|f-folder|
|00000a60| 2d 72 65 61 64 2d 6f 6e | 6c 79 20 28 6d 61 63 72 |-read-on|ly (macr|
|00000a70| 6f 20 2e 20 23 5b 6e 69 | 6c 20 22 c0 87 22 20 5b |o . #[ni|l ".." [|
|00000a80| 28 77 68 69 6c 65 20 76 | 6d 2d 66 6f 6c 64 65 72 |(while v|m-folder|
|00000a90| 2d 72 65 61 64 2d 6f 6e | 6c 79 20 28 73 69 67 6e |-read-on|ly (sign|
|00000aa0| 61 6c 20 28 71 75 6f 74 | 65 20 66 6f 6c 64 65 72 |al (quot|e folder|
|00000ab0| 2d 72 65 61 64 2d 6f 6e | 6c 79 29 20 28 6c 69 73 |-read-on|ly) (lis|
|00000ac0| 74 20 28 63 75 72 72 65 | 6e 74 2d 62 75 66 66 65 |t (curre|nt-buffe|
|00000ad0| 72 29 29 29 29 5d 20 31 | 5d 29 20 70 75 74 20 66 |r))))] 1|]) put f|
|00000ae0| 6f 6c 64 65 72 2d 72 65 | 61 64 2d 6f 6e 6c 79 20 |older-re|ad-only |
|00000af0| 65 72 72 6f 72 2d 63 6f | 6e 64 69 74 69 6f 6e 73 |error-co|nditions|
|00000b00| 20 28 66 6f 6c 64 65 72 | 2d 72 65 61 64 2d 6f 6e | (folder|-read-on|
|00000b10| 6c 79 20 65 72 72 6f 72 | 29 20 65 72 72 6f 72 2d |ly error|) error-|
|00000b20| 6d 65 73 73 61 67 65 20 | 22 46 6f 6c 64 65 72 20 |message |"Folder |
|00000b30| 69 73 20 72 65 61 64 2d | 6f 6e 6c 79 22 20 76 6d |is read-|only" vm|
|00000b40| 2d 65 72 72 6f 72 2d 69 | 66 2d 76 69 72 74 75 61 |-error-i|f-virtua|
|00000b50| 6c 2d 66 6f 6c 64 65 72 | 20 28 6d 61 63 72 6f 20 |l-folder| (macro |
|00000b60| 2e 20 23 5b 6e 69 6c 20 | 22 c0 87 22 20 5b 28 61 |. #[nil |".." [(a|
|00000b70| 6e 64 20 28 65 71 20 6d | 61 6a 6f 72 2d 6d 6f 64 |nd (eq m|ajor-mod|
|00000b80| 65 20 28 71 75 6f 74 65 | 20 76 6d 2d 76 69 72 74 |e (quote| vm-virt|
|00000b90| 75 61 6c 2d 6d 6f 64 65 | 29 29 20 28 65 72 72 6f |ual-mode|)) (erro|
|00000ba0| 72 20 22 25 73 20 63 61 | 6e 6e 6f 74 20 62 65 20 |r "%s ca|nnot be |
|00000bb0| 61 70 70 6c 69 65 64 20 | 74 6f 20 76 69 72 74 75 |applied |to virtu|
|00000bc0| 61 6c 20 66 6f 6c 64 65 | 72 73 2e 22 20 74 68 69 |al folde|rs." thi|
|00000bd0| 73 2d 63 6f 6d 6d 61 6e | 64 29 29 5d 20 31 5d 29 |s-comman|d))] 1])|
|00000be0| 20 76 6d 2d 62 75 69 6c | 64 2d 74 68 72 65 61 64 | vm-buil|d-thread|
|00000bf0| 73 2d 69 66 2d 75 6e 62 | 75 69 6c 74 20 28 6d 61 |s-if-unb|uilt (ma|
|00000c00| 63 72 6f 20 2e 20 23 5b | 6e 69 6c 20 22 c0 87 22 |cro . #[|nil ".."|
|00000c10| 20 5b 28 69 66 20 28 6e | 75 6c 6c 20 76 6d 2d 74 | [(if (n|ull vm-t|
|00000c20| 68 72 65 61 64 2d 6f 62 | 61 72 72 61 79 29 20 28 |hread-ob|array) (|
|00000c30| 76 6d 2d 62 75 69 6c 64 | 2d 74 68 72 65 61 64 73 |vm-build|-threads|
|00000c40| 20 6e 69 6c 29 29 5d 20 | 31 5d 29 20 76 6d 2d 61 | nil))] |1]) vm-a|
|00000c50| 62 73 20 23 5b 28 6e 29 | 20 22 08 c1 57 83 09 00 |bs #[(n)| "..W...|
|00000c60| 08 5b 87 08 87 22 20 5b | 6e 20 30 5d 20 32 5d 20 |.[..." [|n 0] 2] |
|00000c70| 76 6d 2d 73 61 76 65 2d | 72 65 73 74 72 69 63 74 |vm-save-|restrict|
|00000c80| 69 6f 6e 20 28 6d 61 63 | 72 6f 20 2e 20 23 5b 28 |ion (mac|ro . #[(|
|00000c90| 26 72 65 73 74 20 66 6f | 72 6d 73 29 20 22 c0 c1 |&rest fo|rms) "..|
|00000ca0| 21 c0 c2 21 c0 c3 21 1c | 1d 1e 06 c7 0e 06 c8 44 |!..!..!.|.......D|
|00000cb0| 0d 5c 66 45 c9 0e 06 ca | 0d cb 45 ca 5c 66 cc 45 |.\fE....|..E.\f.E|
|00000cc0| 46 cd ce 0e 0f 42 d0 c9 | 0e 06 ce d1 0d 5c 66 45 |F....B..|.....\fE|
|00000cd0| d2 0d d3 45 d2 5c 66 d3 | 45 46 45 46 46 2b 87 22 |...E.\f.|EFEFF+."|
|00000ce0| 20 5b 6d 61 6b 65 2d 73 | 79 6d 62 6f 6c 20 22 76 | [make-s|ymbol "v|
|00000cf0| 6d 2d 73 72 2d 63 6c 69 | 70 22 20 22 76 6d 2d 73 |m-sr-cli|p" "vm-s|
|00000d00| 72 2d 6d 69 6e 22 20 22 | 76 6d 2d 73 72 2d 6d 61 |r-min" "|vm-sr-ma|
|00000d10| 78 22 20 76 6d 2d 73 72 | 2d 6d 61 78 20 76 6d 2d |x" vm-sr|-max vm-|
|00000d20| 73 72 2d 6d 69 6e 20 76 | 6d 2d 73 72 2d 63 6c 69 |sr-min v|m-sr-cli|
|00000d30| 70 20 6c 65 74 20 28 3e | 20 28 62 75 66 66 65 72 |p let (>| (buffer|
|00000d40| 2d 73 69 7a 65 29 20 28 | 2d 20 28 70 6f 69 6e 74 |-size) (|- (point|
|00000d50| 2d 6d 61 78 29 20 28 70 | 6f 69 6e 74 2d 6d 69 6e |-max) (p|oint-min|
|00000d60| 29 29 29 20 61 6e 64 20 | 73 65 74 71 20 28 73 65 |))) and |setq (se|
|00000d70| 74 2d 6d 61 72 6b 65 72 | 20 28 6d 61 6b 65 2d 6d |t-marker| (make-m|
|00000d80| 61 72 6b 65 72 29 20 28 | 70 6f 69 6e 74 2d 6d 69 |arker) (|point-mi|
|00000d90| 6e 29 29 20 28 73 65 74 | 2d 6d 61 72 6b 65 72 20 |n)) (set|-marker |
|00000da0| 28 6d 61 6b 65 2d 6d 61 | 72 6b 65 72 29 20 28 70 |(make-ma|rker) (p|
|00000db0| 6f 69 6e 74 2d 6d 61 78 | 29 29 20 75 6e 77 69 6e |oint-max|)) unwin|
|00000dc0| 64 2d 70 72 6f 74 65 63 | 74 20 70 72 6f 67 6e 20 |d-protec|t progn |
|00000dd0| 66 6f 72 6d 73 20 28 77 | 69 64 65 6e 29 20 6e 61 |forms (w|iden) na|
|00000de0| 72 72 6f 77 2d 74 6f 2d | 72 65 67 69 6f 6e 20 73 |rrow-to-|region s|
|00000df0| 65 74 2d 6d 61 72 6b 65 | 72 20 6e 69 6c 5d 20 31 |et-marke|r nil] 1|
|00000e00| 34 5d 29 20 76 6d 2d 73 | 61 76 65 2d 62 75 66 66 |4]) vm-s|ave-buff|
|00000e10| 65 72 2d 65 78 63 75 72 | 73 69 6f 6e 20 28 6d 61 |er-excur|sion (ma|
|00000e20| 63 72 6f 20 2e 20 23 5b | 28 26 72 65 73 74 20 66 |cro . #[|(&rest f|
|00000e30| 6f 72 6d 73 29 20 22 c0 | c1 c2 c3 5c 66 42 c5 45 |orms) ".|...\fB.E|
|00000e40| 45 87 22 20 5b 6c 65 74 | 20 28 28 76 6d 2d 73 62 |E." [let| ((vm-sb|
|00000e50| 65 2d 62 75 66 66 65 72 | 20 28 63 75 72 72 65 6e |e-buffer| (curren|
|00000e60| 74 2d 62 75 66 66 65 72 | 29 29 29 20 75 6e 77 69 |t-buffer|))) unwi|
|00000e70| 6e 64 2d 70 72 6f 74 65 | 63 74 20 70 72 6f 67 6e |nd-prote|ct progn|
|00000e80| 20 66 6f 72 6d 73 20 28 | 61 6e 64 20 28 6e 6f 74 | forms (|and (not|
|00000e90| 20 28 65 71 20 76 6d 2d | 73 62 65 2d 62 75 66 66 | (eq vm-|sbe-buff|
|00000ea0| 65 72 20 28 63 75 72 72 | 65 6e 74 2d 62 75 66 66 |er (curr|ent-buff|
|00000eb0| 65 72 29 29 29 20 28 62 | 75 66 66 65 72 2d 6e 61 |er))) (b|uffer-na|
|00000ec0| 6d 65 20 76 6d 2d 73 62 | 65 2d 62 75 66 66 65 72 |me vm-sb|e-buffer|
|00000ed0| 29 20 28 73 65 74 2d 62 | 75 66 66 65 72 20 76 6d |) (set-b|uffer vm|
|00000ee0| 2d 73 62 65 2d 62 75 66 | 66 65 72 29 29 5d 20 35 |-sbe-buf|fer))] 5|
|00000ef0| 5d 29 20 76 6d 2d 6c 61 | 73 74 20 23 5b 28 6c 69 |]) vm-la|st #[(li|
|00000f00| 73 74 29 20 22 08 a3 83 | 5c 66 00 08 41 89 10 82 |st) "...|\f..A...|
|00000f10| 01 00 08 87 22 20 5b 6c | 69 73 74 5d 20 32 5d 20 |...." [l|ist] 2] |
|00000f20| 76 6d 2d 76 65 63 74 6f | 72 2d 74 6f 2d 6c 69 73 |vm-vecto|r-to-lis|
|00000f30| 74 20 23 5b 28 76 65 63 | 74 6f 72 29 20 22 08 47 |t #[(vec|tor) ".G|
|00000f40| 53 c1 1a 89 1b c4 59 83 | 19 00 08 0b 48 5c 6e 42 |S.....Y.|....H\nB|
|00000f50| 12 0b 53 89 13 82 07 00 | 5c 6e 2a 87 22 20 5b 76 |..S.....|\n*." [v|
|00000f60| 65 63 74 6f 72 20 6e 69 | 6c 20 6c 69 73 74 20 69 |ector ni|l list i|
|00000f70| 20 30 5d 20 33 5d 20 76 | 6d 2d 65 78 74 65 6e 64 | 0] 3] v|m-extend|
|00000f80| 2d 76 65 63 74 6f 72 20 | 23 5b 28 76 65 63 74 6f |-vector |#[(vecto|
|00000f90| 72 20 6c 65 6e 67 74 68 | 20 26 6f 70 74 69 6f 6e |r length| &option|
|00000fa0| 61 6c 20 66 69 6c 6c 29 | 20 22 08 47 89 19 5c 6e |al fill)| ".G..\n|
|00000fb0| 57 83 1a 00 c3 c0 c4 08 | 21 c5 5c 6e 09 5a 0e 06 |W.......|!.\n.Z..|
|00000fc0| 5c 22 a4 5c 22 82 1b 00 | 08 29 87 22 20 5b 76 65 |\".\"...|.)." [ve|
|00000fd0| 63 74 6f 72 20 76 6c 65 | 6e 67 74 68 20 6c 65 6e |ctor vle|ngth len|
|00000fe0| 67 74 68 20 61 70 70 6c | 79 20 76 6d 2d 76 65 63 |gth appl|y vm-vec|
|00000ff0| 74 6f 72 2d 74 6f 2d 6c | 69 73 74 20 6d 61 6b 65 |tor-to-l|ist make|
|00001000| 2d 6c 69 73 74 20 66 69 | 6c 6c 5d 20 37 5d 20 76 |-list fi|ll] 7] v|
|00001010| 6d 2d 6f 62 61 72 72 61 | 79 2d 74 6f 2d 73 74 72 |m-obarra|y-to-str|
|00001020| 69 6e 67 2d 6c 69 73 74 | 20 23 5b 28 6f 62 61 72 |ing-list| #[(obar|
|00001030| 72 61 79 29 20 22 c0 19 | c2 c3 5c 66 5c 22 88 09 |ray) "..|..\f\"..|
|00001040| 29 87 22 20 5b 6e 69 6c | 20 6c 69 73 74 20 6d 61 |)." [nil| list ma|
|00001050| 70 61 74 6f 6d 73 20 23 | 5b 28 73 29 20 22 c0 09 |patoms #|[(s) "..|
|00001060| 21 5c 6e 42 89 12 87 22 | 20 5b 73 79 6d 62 6f 6c |!\nB..."| [symbol|
|00001070| 2d 6e 61 6d 65 20 73 20 | 6c 69 73 74 5d 20 32 5d |-name s |list] 2]|
|00001080| 20 6f 62 61 72 72 61 79 | 5d 20 33 5d 20 76 6d 2d | obarray|] 3] vm-|
|00001090| 6d 61 70 63 61 72 20 23 | 5b 28 66 75 6e 63 74 69 |mapcar #|[(functi|
|000010a0| 6f 6e 20 26 72 65 73 74 | 20 6c 69 73 74 73 29 20 |on &rest| lists) |
|000010b0| 22 c0 89 19 1a 0b 40 83 | 1f 00 c4 c5 0b 5c 22 12 |".....@.|.....\".|
|000010c0| c6 0e 07 5c 6e 5c 22 09 | 42 11 c4 c8 0b 5c 22 89 |...\n\".|B....\".|
|000010d0| 13 82 05 00 09 9f 2a 87 | 22 20 5b 6e 69 6c 20 72 |......*.|" [nil r|
|000010e0| 65 73 75 6c 74 20 61 72 | 67 6c 69 73 74 20 6c 69 |esult ar|glist li|
|000010f0| 73 74 73 20 6d 61 70 63 | 61 72 20 63 61 72 20 61 |sts mapc|ar car a|
|00001100| 70 70 6c 79 20 66 75 6e | 63 74 69 6f 6e 20 63 64 |pply fun|ction cd|
|00001110| 72 5d 20 34 5d 20 76 6d | 2d 6d 61 70 63 20 23 5b |r] 4] vm|-mapc #[|
|00001120| 28 66 75 6e 63 74 69 6f | 6e 20 26 72 65 73 74 20 |(functio|n &rest |
|00001130| 6c 69 73 74 73 29 20 22 | c0 19 5c 6e 40 85 1b 00 |lists) "|..\n@...|
|00001140| c3 c4 5c 6e 5c 22 11 c5 | 0e 06 09 5c 22 88 c3 c7 |..\n\"..|...\"...|
|00001150| 5c 6e 5c 22 89 12 82 03 | 00 29 87 22 20 5b 6e 69 |\n\"....|.)." [ni|
|00001160| 6c 20 61 72 67 6c 69 73 | 74 20 6c 69 73 74 73 20 |l arglis|t lists |
|00001170| 6d 61 70 63 61 72 20 63 | 61 72 20 61 70 70 6c 79 |mapcar c|ar apply|
|00001180| 20 66 75 6e 63 74 69 6f | 6e 20 63 64 72 5d 20 34 | functio|n cdr] 4|
|00001190| 5d 20 76 6d 2d 64 65 6c | 65 74 65 20 23 5b 28 70 |] vm-del|ete #[(p|
|000011a0| 72 65 64 69 63 61 74 65 | 20 6c 69 73 74 20 26 6f |redicate| list &o|
|000011b0| 70 74 69 6f 6e 61 6c 20 | 72 65 76 65 72 73 65 29 |ptional |reverse)|
|000011c0| 20 22 08 09 83 09 00 c2 | 82 5c 6e 00 c3 c4 1d 19 | "......|.\n.....|
|000011d0| 89 1e 06 83 47 00 09 0e | 07 0e 06 40 21 21 83 3b |....G...|...@!!.;|
|000011e0| 00 0d 84 2c 00 08 41 89 | 10 89 16 06 82 10 00 0d |...,..A.|........|
|000011f0| 0e 06 41 a1 88 0e 06 41 | 89 16 06 82 10 00 0e 06 |..A....A|........|
|00001200| 15 0e 06 41 89 16 06 84 | 13 00 08 2b 87 22 20 5b |...A....|...+." [|
|00001210| 6c 69 73 74 20 72 65 76 | 65 72 73 65 20 6e 6f 74 |list rev|erse not|
|00001220| 20 69 64 65 6e 74 69 74 | 79 20 6e 69 6c 20 70 72 | identit|y nil pr|
|00001230| 65 76 20 70 20 70 72 65 | 64 69 63 61 74 65 5d 20 |ev p pre|dicate] |
|00001240| 34 5d 5d 20 34 29 0a 28 | 64 65 66 61 6c 69 61 73 |4]] 4).(|defalias|
|00001250| 20 27 76 6d 2d 64 65 6c | 65 74 65 2d 64 75 70 6c | 'vm-del|ete-dupl|
|00001260| 69 63 61 74 65 73 20 23 | 5b 28 6c 69 73 74 20 26 |icates #|[(list &|
|00001270| 6f 70 74 69 6f 6e 61 6c | 20 61 6c 6c 20 68 61 63 |optional| all hac|
|00001280| 6b 2d 61 64 64 72 65 73 | 73 65 73 29 20 22 08 c1 |k-addres|ses) "..|
|00001290| 89 89 1a 1b 1c 1d c6 0d | c7 5c 22 88 0e 08 83 51 |........|.\"....Q|
|000012a0| 00 0e 09 83 5c 22 00 0e | 5c 6e 0e 08 40 21 41 40 |....\"..|\n..@!A@|
|000012b0| 82 25 00 0e 08 40 13 cb | 0b 0d 5c 22 12 cc 5c 6e |.%...@..|..\"..\n|
|000012c0| 21 83 3e 00 0e 0d 83 48 | 00 5c 6e 4a c1 a0 88 82 |!.>....H|.\nJ....|
|000012d0| 48 00 0e 08 40 5c 66 42 | 14 5c 6e 5c 66 4c 88 0e |H...@\fB|.\n\fL..|
|000012e0| 08 41 89 16 08 84 12 00 | ce c1 5c 66 9f 5c 22 2c |.A......|..\f.\",|
|000012f0| 87 22 20 5b 76 6d 2d 64 | 65 6c 65 74 65 2d 64 75 |." [vm-d|elete-du|
|00001300| 70 6c 69 63 61 74 65 73 | 2d 6f 62 61 72 72 61 79 |plicates|-obarray|
|00001310| 20 6e 69 6c 20 73 79 6d | 20 73 79 6d 2d 73 74 72 | nil sym| sym-str|
|00001320| 69 6e 67 20 6e 65 77 2d | 6c 69 73 74 20 68 61 73 |ing new-|list has|
|00001330| 68 74 61 62 6c 65 20 66 | 69 6c 6c 61 72 72 61 79 |htable f|illarray|
|00001340| 20 30 20 6c 69 73 74 20 | 68 61 63 6b 2d 61 64 64 | 0 list |hack-add|
|00001350| 72 65 73 73 65 73 20 76 | 6d 2d 63 68 6f 70 2d 66 |resses v|m-chop-f|
|00001360| 75 6c 6c 2d 6e 61 6d 65 | 2d 66 75 6e 63 74 69 6f |ull-name|-functio|
|00001370| 6e 20 69 6e 74 65 72 6e | 20 62 6f 75 6e 64 70 20 |n intern| boundp |
|00001380| 61 6c 6c 20 64 65 6c 71 | 5d 20 35 20 22 5c 0a 44 |all delq|] 5 "\.D|
|00001390| 65 6c 65 74 65 20 64 75 | 70 6c 69 63 61 74 65 20 |elete du|plicate |
|000013a0| 65 71 75 69 76 61 6c 65 | 6e 74 20 73 74 72 69 6e |equivale|nt strin|
|000013b0| 67 73 20 66 72 6f 6d 20 | 74 68 65 20 6c 69 73 74 |gs from |the list|
|000013c0| 2e 0a 49 66 20 41 4c 4c | 20 69 73 20 74 2c 20 74 |..If ALL| is t, t|
|000013d0| 68 65 6e 20 69 66 20 74 | 68 65 72 65 20 69 73 20 |hen if t|here is |
|000013e0| 6d 6f 72 65 20 74 68 61 | 6e 20 6f 6e 65 20 6f 63 |more tha|n one oc|
|000013f0| 63 75 72 72 65 6e 63 65 | 20 6f 66 20 61 20 73 74 |currence| of a st|
|00001400| 72 69 6e 67 20 69 6e 20 | 74 68 65 20 6c 69 73 74 |ring in |the list|
|00001410| 2c 0a 20 74 68 65 6e 20 | 61 6c 6c 20 6f 63 63 75 |,. then |all occu|
|00001420| 72 72 65 6e 63 65 73 20 | 6f 66 20 69 74 20 61 72 |rrences |of it ar|
|00001430| 65 20 72 65 6d 6f 76 65 | 64 20 69 6e 73 74 65 61 |e remove|d instea|
|00001440| 64 20 6f 66 20 6a 75 73 | 74 20 74 68 65 20 73 75 |d of jus|t the su|
|00001450| 62 73 65 71 65 6e 74 20 | 6f 6e 65 73 2e 0a 49 66 |bseqent |ones..If|
|00001460| 20 48 41 43 4b 2d 41 44 | 44 52 45 53 53 45 53 20 | HACK-AD|DRESSES |
|00001470| 69 73 20 74 2c 20 74 68 | 65 6e 20 74 68 65 20 73 |is t, th|en the s|
|00001480| 74 72 69 6e 67 73 20 61 | 72 65 20 63 6f 6e 73 69 |trings a|re consi|
|00001490| 64 65 72 65 64 20 74 6f | 20 62 65 20 6d 61 69 6c |dered to| be mail|
|000014a0| 20 61 64 64 72 65 73 73 | 65 73 2c 0a 20 61 6e 64 | address|es,. and|
|000014b0| 20 6f 6e 6c 79 20 74 68 | 65 20 61 64 64 72 65 73 | only th|e addres|
|000014c0| 73 20 70 61 72 74 20 69 | 73 20 63 6f 6d 70 61 72 |s part i|s compar|
|000014d0| 65 64 20 28 73 6f 20 74 | 68 61 74 20 5c 22 4e 61 |ed (so t|hat \"Na|
|000014e0| 6d 65 20 3c 66 6f 6f 3e | 5c 22 20 61 6e 64 20 5c |me <foo>|\" and \|
|000014f0| 22 66 6f 6f 5c 22 0a 20 | 77 6f 75 6c 64 20 62 65 |"foo\". |would be|
|00001500| 20 63 6f 6e 73 69 64 65 | 72 65 64 20 74 6f 20 62 | conside|red to b|
|00001510| 65 20 65 71 75 69 76 61 | 6c 65 6e 74 2e 29 22 5d |e equiva|lent.)"]|
|00001520| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |).(byte-|code "..|
|00001530| c2 5c 22 88 c3 c4 c5 21 | 83 10 00 c5 82 11 00 c1 |.\"....!|........|
|00001540| 4b 4d 88 c0 c6 c7 5c 22 | 88 c0 c8 c9 5c 22 88 ca |KM....\"|....\"..|
|00001550| cb cc cd 23 88 ca cb ce | cf 23 88 ca d0 cc d1 23 |...#....|.#.....#|
|00001560| 88 ca d0 ce d2 23 88 c0 | d3 d4 5c 22 88 c0 d5 d6 |.....#..|..\"....|
|00001570| 5c 22 88 c0 d7 d8 5c 22 | 88 c0 d9 da 5c 22 88 c0 |\"....\"|....\"..|
|00001580| db dc 5c 22 88 c0 dd de | 5c 22 88 ca df cc e0 23 |..\"....|\".....#|
|00001590| 88 ca df ce e1 23 88 ca | e2 cc e3 23 88 ca e2 ce |.....#..|...#....|
|000015a0| e4 23 88 c0 e5 e6 5c 22 | 88 c0 e7 e8 5c 22 88 c0 |.#....\"|....\"..|
|000015b0| e9 ea 5c 22 88 c0 eb ec | 5c 22 88 c0 ed ee 5c 22 |..\"....|\"....\"|
|000015c0| 87 22 20 5b 64 65 66 61 | 6c 69 61 73 20 76 6d 2d |." [defa|lias vm-|
|000015d0| 6d 65 6d 62 65 72 2d 30 | 20 23 5b 28 74 68 69 6e |member-0| #[(thin|
|000015e0| 67 20 6c 69 73 74 29 20 | 22 c0 c1 8d 87 22 20 5b |g list) |"...." [|
|000015f0| 64 6f 6e 65 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |done (by|te-code |
|00001600| 22 08 83 17 00 08 40 09 | 9a 83 10 00 c2 c3 08 5c |".....@.|.......\|
|00001610| 22 88 08 41 89 10 84 04 | 00 c4 87 22 20 5b 6c 69 |"..A....|..." [li|
|00001620| 73 74 20 74 68 69 6e 67 | 20 74 68 72 6f 77 20 64 |st thing| throw d|
|00001630| 6f 6e 65 20 6e 69 6c 5d | 20 34 29 5d 20 32 5d 20 |one nil]| 4)] 2] |
|00001640| 76 6d 2d 6d 65 6d 62 65 | 72 20 66 62 6f 75 6e 64 |vm-membe|r fbound|
|00001650| 70 20 6d 65 6d 62 65 72 | 20 76 6d 2d 64 65 6c 71 |p member| vm-delq|
|00001660| 75 61 6c 20 23 5b 28 6f | 62 20 6c 69 73 74 29 20 |ual #[(o|b list) |
|00001670| 22 c0 09 1a 1b 5c 6e 83 | 2f 00 5c 66 5c 6e 40 9a |"....\n.|/.\f\n@.|
|00001680| 84 18 00 5c 6e 13 5c 6e | 41 89 12 82 05 00 0b 84 |...\n.\n|A.......|
|00001690| 25 00 09 41 89 11 89 12 | 82 05 00 5c 6e 41 12 0b |%..A....|...\nA..|
|000016a0| 5c 6e a1 88 82 04 00 09 | 2a 87 22 20 5b 6e 69 6c |\n......|*." [nil|
|000016b0| 20 6c 69 73 74 20 63 75 | 72 72 20 70 72 65 76 20 | list cu|rr prev |
|000016c0| 6f 62 5d 20 33 5d 20 76 | 6d 2d 63 6f 70 79 2d 6c |ob] 3] v|m-copy-l|
|000016d0| 6f 63 61 6c 2d 76 61 72 | 69 61 62 6c 65 73 20 23 |ocal-var|iables #|
|000016e0| 5b 28 62 75 66 66 65 72 | 20 26 72 65 73 74 20 76 |[(buffer| &rest v|
|000016f0| 61 72 69 61 62 6c 65 73 | 29 20 22 c0 c1 5c 6e 5c |ariables|) "..\n\|
|00001700| 22 1b 8a 5c 66 71 88 c5 | c6 5c 6e 0b 23 2a 87 22 |"..\fq..|.\n.#*."|
|00001710| 20 5b 6d 61 70 63 61 72 | 20 73 79 6d 62 6f 6c 2d | [mapcar| symbol-|
|00001720| 76 61 6c 75 65 20 76 61 | 72 69 61 62 6c 65 73 20 |value va|riables |
|00001730| 76 61 6c 75 65 73 20 62 | 75 66 66 65 72 20 76 6d |values b|uffer vm|
|00001740| 2d 6d 61 70 63 20 73 65 | 74 5d 20 34 5d 20 70 75 |-mapc se|t] 4] pu|
|00001750| 74 20 66 6f 6c 64 65 72 | 2d 65 6d 70 74 79 20 65 |t folder|-empty e|
|00001760| 72 72 6f 72 2d 63 6f 6e | 64 69 74 69 6f 6e 73 20 |rror-con|ditions |
|00001770| 28 66 6f 6c 64 65 72 2d | 65 6d 70 74 79 20 65 72 |(folder-|empty er|
|00001780| 72 6f 72 29 20 65 72 72 | 6f 72 2d 6d 65 73 73 61 |ror) err|or-messa|
|00001790| 67 65 20 22 46 6f 6c 64 | 65 72 20 69 73 20 65 6d |ge "Fold|er is em|
|000017a0| 70 74 79 22 20 75 6e 72 | 65 63 6f 67 6e 69 7a 65 |pty" unr|ecognize|
|000017b0| 64 2d 66 6f 6c 64 65 72 | 2d 74 79 70 65 20 28 75 |d-folder|-type (u|
|000017c0| 6e 72 65 63 6f 67 6e 69 | 7a 65 64 2d 66 6f 6c 64 |nrecogni|zed-fold|
|000017d0| 65 72 2d 74 79 70 65 20 | 65 72 72 6f 72 29 20 22 |er-type |error) "|
|000017e0| 55 6e 72 65 63 6f 67 6e | 69 7a 65 64 20 66 6f 6c |Unrecogn|ized fol|
|000017f0| 64 65 72 20 74 79 70 65 | 22 20 76 6d 2d 65 72 72 |der type|" vm-err|
|00001800| 6f 72 2d 69 66 2d 66 6f | 6c 64 65 72 2d 65 6d 70 |or-if-fo|lder-emp|
|00001810| 74 79 20 23 5b 6e 69 6c | 20 22 08 3f 85 19 00 09 |ty #[nil| ".?....|
|00001820| 83 11 00 c2 c3 c4 5c 22 | 88 82 00 00 c2 c5 c4 5c |......\"|.......\|
|00001830| 22 88 82 00 00 87 22 20 | 5b 76 6d 2d 6d 65 73 73 |"....." |[vm-mess|
|00001840| 61 67 65 2d 6c 69 73 74 | 20 76 6d 2d 66 6f 6c 64 |age-list| vm-fold|
|00001850| 65 72 2d 74 79 70 65 20 | 73 69 67 6e 61 6c 20 75 |er-type |signal u|
|00001860| 6e 72 65 63 6f 67 6e 69 | 7a 65 64 2d 66 6f 6c 64 |nrecogni|zed-fold|
|00001870| 65 72 2d 74 79 70 65 20 | 6e 69 6c 20 66 6f 6c 64 |er-type |nil fold|
|00001880| 65 72 2d 65 6d 70 74 79 | 5d 20 33 5d 20 76 6d 2d |er-empty|] 3] vm-|
|00001890| 63 6f 70 79 20 23 5b 28 | 6f 62 6a 65 63 74 29 20 |copy #[(|object) |
|000018a0| 22 08 3a 83 34 00 c1 89 | 1a 1b c4 08 40 21 c1 42 |".:.4...|....@!.B|
|000018b0| 89 13 12 08 41 89 10 3a | 83 2d 00 5c 6e c4 08 40 |....A..:|.-.\n..@|
|000018c0| 21 c1 42 a1 88 5c 6e 41 | 12 08 41 89 10 82 16 00 |!.B..\nA|..A.....|
|000018d0| 5c 6e 08 a1 88 0b 2a 87 | c5 08 21 83 42 00 c6 c7 |\n....*.|..!.B...|
|000018e0| c8 c4 08 5c 22 5c 22 87 | 08 3b 83 4b 00 c9 08 21 |...\"\".|.;.K...!|
|000018f0| 87 08 87 22 20 5b 6f 62 | 6a 65 63 74 20 6e 69 6c |..." [ob|ject nil|
|00001900| 20 63 6f 6e 73 20 72 65 | 74 75 72 6e 2d 76 61 6c | cons re|turn-val|
|00001910| 75 65 20 76 6d 2d 63 6f | 70 79 20 76 65 63 74 6f |ue vm-co|py vecto|
|00001920| 72 70 20 61 70 70 6c 79 | 20 76 65 63 74 6f 72 20 |rp apply| vector |
|00001930| 6d 61 70 63 61 72 20 63 | 6f 70 79 2d 73 65 71 75 |mapcar c|opy-sequ|
|00001940| 65 6e 63 65 5d 20 36 5d | 20 76 6d 2d 6c 75 63 69 |ence] 6]| vm-luci|
|00001950| 64 2d 65 6d 61 63 73 2d | 70 20 23 5b 6e 69 6c 20 |d-emacs-|p #[nil |
|00001960| 22 c0 19 c2 c3 5c 66 5c | 22 29 87 22 20 5b 6e 69 |"....\f\|")." [ni|
|00001970| 6c 20 63 61 73 65 2d 66 | 6f 6c 64 2d 73 65 61 72 |l case-f|old-sear|
|00001980| 63 68 20 73 74 72 69 6e | 67 2d 6d 61 74 63 68 20 |ch strin|g-match |
|00001990| 22 4c 75 63 69 64 22 20 | 65 6d 61 63 73 2d 76 65 |"Lucid" |emacs-ve|
|000019a0| 72 73 69 6f 6e 5d 20 33 | 5d 20 76 6d 2d 66 73 66 |rsion] 3|] vm-fsf|
|000019b0| 2d 65 6d 61 63 73 2d 31 | 39 2d 70 20 23 5b 6e 69 |-emacs-1|9-p #[ni|
|000019c0| 6c 20 22 c0 c1 5c 6e 5c | 22 85 5c 6e 00 c3 20 3f |l "..\n\|".\n.. ?|
|000019d0| 87 22 20 5b 73 74 72 69 | 6e 67 2d 6d 61 74 63 68 |." [stri|ng-match|
|000019e0| 20 22 5e 31 39 22 20 65 | 6d 61 63 73 2d 76 65 72 | "^19" e|macs-ver|
|000019f0| 73 69 6f 6e 20 76 6d 2d | 6c 75 63 69 64 2d 65 6d |sion vm-|lucid-em|
|00001a00| 61 63 73 2d 70 5d 20 33 | 5d 20 76 6d 2d 72 75 6e |acs-p] 3|] vm-run|
|00001a10| 2d 6d 65 73 73 61 67 65 | 2d 68 6f 6f 6b 20 23 5b |-message|-hook #[|
|00001a20| 28 6d 65 73 73 61 67 65 | 20 26 6f 70 74 69 6f 6e |(message| &option|
|00001a30| 61 6c 20 68 6f 6f 6b 2d | 76 61 72 69 61 62 6c 65 |al hook-|variable|
|00001a40| 29 20 22 8a 08 c1 48 c2 | 48 71 88 8c 7e 88 8a 08 |) "...H.|Hq..~...|
|00001a50| c3 48 c1 48 08 c3 48 c4 | 48 7d 88 c5 0e 06 21 2b |.H.H..H.|H}....!+|
|00001a60| 87 22 20 5b 6d 65 73 73 | 61 67 65 20 31 20 39 20 |." [mess|age 1 9 |
|00001a70| 30 20 34 20 72 75 6e 2d | 68 6f 6f 6b 73 20 68 6f |0 4 run-|hooks ho|
|00001a80| 6f 6b 2d 76 61 72 69 61 | 62 6c 65 5d 20 33 5d 20 |ok-varia|ble] 3] |
|00001a90| 76 6d 2d 65 72 72 6f 72 | 2d 66 72 65 65 2d 63 61 |vm-error|-free-ca|
|00001aa0| 6c 6c 20 23 5b 28 66 75 | 6e 63 74 69 6f 6e 20 26 |ll #[(fu|nction &|
|00001ab0| 72 65 73 74 20 61 72 67 | 73 29 20 22 c0 c1 c2 8f |rest arg|s) "....|
|00001ac0| 87 22 20 5b 6e 69 6c 20 | 28 61 70 70 6c 79 20 66 |." [nil |(apply f|
|00001ad0| 75 6e 63 74 69 6f 6e 20 | 61 72 67 73 29 20 28 28 |unction |args) ((|
|00001ae0| 65 72 72 6f 72 29 29 5d | 20 33 5d 20 62 65 67 69 |error))]| 3] begi|
|00001af0| 6e 6e 69 6e 67 2d 6f 66 | 2d 66 6f 6c 64 65 72 20 |nning-of|-folder |
|00001b00| 28 62 65 67 69 6e 6e 69 | 6e 67 2d 6f 66 2d 66 6f |(beginni|ng-of-fo|
|00001b10| 6c 64 65 72 20 65 72 72 | 6f 72 29 20 22 42 65 67 |lder err|or) "Beg|
|00001b20| 69 6e 6e 69 6e 67 20 6f | 66 20 66 6f 6c 64 65 72 |inning o|f folder|
|00001b30| 22 20 65 6e 64 2d 6f 66 | 2d 66 6f 6c 64 65 72 20 |" end-of|-folder |
|00001b40| 28 65 6e 64 2d 6f 66 2d | 66 6f 6c 64 65 72 20 65 |(end-of-|folder e|
|00001b50| 72 72 6f 72 29 20 22 45 | 6e 64 20 6f 66 20 66 6f |rror) "E|nd of fo|
|00001b60| 6c 64 65 72 22 20 76 6d | 2d 74 72 61 63 65 20 23 |lder" vm|-trace #|
|00001b70| 5b 28 26 72 65 73 74 20 | 61 72 67 73 29 20 22 8a |[(&rest |args) ".|
|00001b80| c0 c1 21 71 88 c2 c3 5c | 66 5c 22 29 87 22 20 5b |..!q...\|f\")." [|
|00001b90| 67 65 74 2d 62 75 66 66 | 65 72 2d 63 72 65 61 74 |get-buff|er-creat|
|00001ba0| 65 20 22 2a 76 6d 2d 74 | 72 61 63 65 2a 22 20 61 |e "*vm-t|race*" a|
|00001bb0| 70 70 6c 79 20 69 6e 73 | 65 72 74 20 61 72 67 73 |pply ins|ert args|
|00001bc0| 5d 20 33 5d 20 76 6d 2d | 74 69 6d 65 7a 6f 6e 65 |] 3] vm-|timezone|
|00001bd0| 2d 6d 61 6b 65 2d 64 61 | 74 65 2d 73 6f 72 74 61 |-make-da|te-sorta|
|00001be0| 62 6c 65 20 23 5b 28 73 | 74 72 69 6e 67 29 20 22 |ble #[(s|tring) "|
|00001bf0| 08 09 9e 41 86 8a 00 c2 | 08 21 c3 c4 20 c5 5c 22 |...A....|.!.. .\"|
|00001c00| 1e 06 89 1e 07 c8 48 c9 | 9a 83 24 00 0e 07 c8 ca |......H.|..$.....|
|00001c10| 0e 06 38 49 88 0e 07 ca | 48 c9 9a 83 36 00 0e 07 |..8I....|H...6...|
|00001c20| ca 0e 06 41 40 49 88 0e | 07 cb 48 c9 9a 83 48 00 |...A@I..|..H...H.|
|00001c30| 0e 07 cb cc 0e 06 38 49 | 88 0e 07 cc 48 c9 9a 83 |......8I|....H...|
|00001c40| 57 00 0e 07 cc cd 49 88 | 0e 07 ce 48 c9 9a 83 67 |W.....I.|...H...g|
|00001c50| 00 0e 07 ce cf 20 49 88 | 08 d0 d1 d2 0e 07 c8 48 |..... I.|.......H|
|00001c60| 0e 07 ca 48 0e 07 cb 48 | 0e 07 cc 48 0e 07 ce 48 |...H...H|...H...H|
|00001c70| 26 06 21 42 09 42 89 11 | 40 41 2a 87 22 20 5b 73 |&.!B.B..|@A*." [s|
|00001c80| 74 72 69 6e 67 20 76 6d | 2d 73 6f 72 74 61 62 6c |tring vm|-sortabl|
|00001c90| 65 2d 64 61 74 65 2d 61 | 6c 69 73 74 20 76 6d 2d |e-date-a|list vm-|
|00001ca0| 70 61 72 73 65 2d 64 61 | 74 65 20 76 6d 2d 70 61 |parse-da|te vm-pa|
|00001cb0| 72 73 65 20 63 75 72 72 | 65 6e 74 2d 74 69 6d 65 |rse curr|ent-time|
|00001cc0| 2d 73 74 72 69 6e 67 20 | 22 20 2a 5c 5c 28 5b 5e |-string |" *\\([^|
|00001cd0| 20 5d 2b 5c 5c 29 22 20 | 64 61 74 65 20 76 65 63 | ]+\\)" |date vec|
|00001ce0| 74 20 31 20 22 22 20 32 | 20 33 20 34 20 22 30 30 |t 1 "" 2| 3 4 "00|
|00001cf0| 3a 30 30 3a 30 30 22 20 | 35 20 76 6d 2d 63 75 72 |:00:00" |5 vm-cur|
|00001d00| 72 65 6e 74 2d 74 69 6d | 65 2d 7a 6f 6e 65 20 74 |rent-tim|e-zone t|
|00001d10| 69 6d 65 7a 6f 6e 65 2d | 6d 61 6b 65 2d 64 61 74 |imezone-|make-dat|
|00001d20| 65 2d 73 6f 72 74 61 62 | 6c 65 20 66 6f 72 6d 61 |e-sortab|le forma|
|00001d30| 74 20 22 25 73 20 25 73 | 20 25 73 20 25 73 20 25 |t "%s %s| %s %s %|
|00001d40| 73 22 5d 20 31 31 5d 20 | 76 6d 2d 63 75 72 72 65 |s"] 11] |vm-curre|
|00001d50| 6e 74 2d 74 69 6d 65 2d | 7a 6f 6e 65 20 23 5b 6e |nt-time-|zone #[n|
|00001d60| 69 6c 20 22 c0 c1 c2 8f | 86 12 00 c0 1b c0 c4 c5 |il "....|........|
|00001d70| 8f 29 86 12 00 c6 87 22 | 20 5b 6e 69 6c 20 28 62 |.)....."| [nil (b|
|00001d80| 79 74 65 2d 63 6f 64 65 | 20 22 c0 20 40 89 19 c2 |yte-code| ". @...|
|00001d90| 57 83 1a 00 c3 c4 c5 09 | 21 c6 a5 c5 09 21 c6 a6 |W.......|!....!..|
|00001da0| 23 82 23 00 c3 c7 09 c6 | a5 09 c6 a6 23 29 87 22 |#.#.....|....#)."|
|00001db0| 20 5b 63 75 72 72 65 6e | 74 2d 74 69 6d 65 2d 7a | [curren|t-time-z|
|00001dc0| 6f 6e 65 20 7a 6f 6e 65 | 20 30 20 66 6f 72 6d 61 |one zone| 0 forma|
|00001dd0| 74 20 22 2d 25 30 32 64 | 25 30 32 64 22 20 76 6d |t "-%02d|%02d" vm|
|00001de0| 2d 61 62 73 20 33 36 30 | 30 20 22 2b 25 30 32 64 |-abs 360|0 "+%02d|
|00001df0| 25 30 32 64 22 5d 20 36 | 29 20 28 28 65 72 72 6f |%02d"] 6|) ((erro|
|00001e00| 72 29 29 20 74 65 6d 70 | 2d 62 75 66 66 65 72 20 |r)) temp|-buffer |
|00001e10| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 8e 8a c1 |(byte-co|de "....|
|00001e20| c2 21 89 13 71 88 c4 c5 | c6 0b c6 24 88 c7 c8 c9 |.!..q...|...$....|
|00001e30| 20 ca 5c 22 38 2a 87 22 | 20 5b 28 28 62 79 74 65 | .\"8*."| [((byte|
|00001e40| 2d 63 6f 64 65 20 22 08 | 83 08 00 c1 08 21 88 c1 |-code ".|.....!..|
|00001e50| 87 22 20 5b 74 65 6d 70 | 2d 62 75 66 66 65 72 20 |." [temp|-buffer |
|00001e60| 6b 69 6c 6c 2d 62 75 66 | 66 65 72 5d 20 32 29 29 |kill-buf|fer] 2))|
|00001e70| 20 67 65 6e 65 72 61 74 | 65 2d 6e 65 77 2d 62 75 | generat|e-new-bu|
|00001e80| 66 66 65 72 20 22 2a 76 | 6d 2d 77 6f 72 6b 2a 22 |ffer "*v|m-work*"|
|00001e90| 20 74 65 6d 70 2d 62 75 | 66 66 65 72 20 63 61 6c | temp-bu|ffer cal|
|00001ea0| 6c 2d 70 72 6f 63 65 73 | 73 20 22 64 61 74 65 22 |l-proces|s "date"|
|00001eb0| 20 6e 69 6c 20 34 20 76 | 6d 2d 70 61 72 73 65 20 | nil 4 v|m-parse |
|00001ec0| 62 75 66 66 65 72 2d 73 | 74 72 69 6e 67 20 22 20 |buffer-s|tring " |
|00001ed0| 2a 5c 5c 28 5b 5e 20 5d | 2b 5c 5c 29 22 5d 20 36 |*\\([^ ]|+\\)"] 6|
|00001ee0| 29 20 28 28 65 72 72 6f | 72 29 29 20 22 22 5d 20 |) ((erro|r)) ""] |
|00001ef0| 33 5d 20 76 6d 2d 73 68 | 6f 75 6c 64 2d 67 65 6e |3] vm-sh|ould-gen|
|00001f00| 65 72 61 74 65 2d 73 75 | 6d 6d 61 72 79 20 23 5b |erate-su|mmary #[|
|00001f10| 6e 69 6c 20 22 08 c1 3d | 83 08 00 c1 87 08 a8 83 |nil "..=|........|
|00001f20| 24 00 08 89 1a c3 57 83 | 1e 00 c4 5c 6e 21 0d 38 |$.....W.|...\n!.8|
|00001f30| 3f 82 5c 22 00 5c 6e 53 | 0d 38 29 87 08 83 2a 00 |?.\".\nS|.8)...*.|
|00001f40| c1 87 c6 87 22 20 5b 76 | 6d 2d 73 74 61 72 74 75 |...." [v|m-startu|
|00001f50| 70 2d 77 69 74 68 2d 73 | 75 6d 6d 61 72 79 20 74 |p-with-s|ummary t|
|00001f60| 20 6e 20 30 20 76 6d 2d | 61 62 73 20 76 6d 2d 6d | n 0 vm-|abs vm-m|
|00001f70| 65 73 73 61 67 65 2d 6c | 69 73 74 20 6e 69 6c 5d |essage-l|ist nil]|
|00001f80| 20 33 5d 20 76 6d 2d 66 | 69 6e 64 2d 63 6f 6d 70 | 3] vm-f|ind-comp|
|00001f90| 6f 73 69 74 69 6f 6e 2d | 62 75 66 66 65 72 20 23 |osition-|buffer #|
|00001fa0| 5b 28 26 6f 70 74 69 6f | 6e 61 6c 20 6e 6f 74 2d |[(&optio|nal not-|
|00001fb0| 70 69 63 6b 79 29 20 22 | c0 20 c1 89 1a 1b 1c 8a |picky) "|. ......|
|00001fc0| 5c 66 83 3c 00 5c 66 40 | 71 88 0d c6 3d 83 35 00 |\f.<.\f@|q...=.5.|
|00001fd0| c7 20 83 23 00 70 13 c1 | 89 14 82 09 00 0e 08 83 |. .#.p..|........|
|00001fe0| 2e 00 5c 6e 84 2e 00 70 | 12 5c 66 41 89 14 82 09 |..\n...p|.\fA....|
|00001ff0| 00 5c 66 41 89 14 84 5c | 66 00 0b 86 41 00 5c 6e |.\fA...\|f...A.\n|
|00002000| 2c 87 22 20 5b 62 75 66 | 66 65 72 2d 6c 69 73 74 |,." [buf|fer-list|
|00002010| 20 6e 69 6c 20 61 6c 74 | 65 72 6e 61 74 65 20 63 | nil alt|ernate c|
|00002020| 68 6f 69 63 65 20 62 2d | 6c 69 73 74 20 6d 61 6a |hoice b-|list maj|
|00002030| 6f 72 2d 6d 6f 64 65 20 | 6d 61 69 6c 2d 6d 6f 64 |or-mode |mail-mod|
|00002040| 65 20 62 75 66 66 65 72 | 2d 6d 6f 64 69 66 69 65 |e buffer|-modifie|
|00002050| 64 2d 70 20 6e 6f 74 2d | 70 69 63 6b 79 5d 20 34 |d-p not-|picky] 4|
|00002060| 5d 5d 20 34 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |]] 4).(d|efalias |
|00002070| 27 76 6d 2d 67 65 74 2d | 66 69 6c 65 2d 62 75 66 |'vm-get-|file-buf|
|00002080| 66 65 72 20 23 5b 28 66 | 69 6c 65 29 20 22 c0 09 |fer #[(f|ile) "..|
|00002090| 21 86 11 00 c2 c3 21 85 | 11 00 c0 c3 09 21 21 87 |!.....!.|.....!!.|
|000020a0| 22 20 5b 67 65 74 2d 66 | 69 6c 65 2d 62 75 66 66 |" [get-f|ile-buff|
|000020b0| 65 72 20 66 69 6c 65 20 | 66 62 6f 75 6e 64 70 20 |er file |fboundp |
|000020c0| 66 69 6c 65 2d 74 72 75 | 65 6e 61 6d 65 5d 20 33 |file-tru|ename] 3|
|000020d0| 20 22 5c 0a 4c 69 6b 65 | 20 67 65 74 2d 66 69 6c | "\.Like| get-fil|
|000020e0| 65 2d 62 75 66 66 65 72 | 2c 20 62 75 74 20 61 6c |e-buffer|, but al|
|000020f0| 73 6f 20 63 68 65 63 6b | 73 20 62 75 66 66 65 72 |so check|s buffer|
|00002100| 73 20 61 67 61 69 6e 73 | 74 20 46 49 4c 45 27 73 |s agains|t FILE's|
|00002110| 20 74 72 75 65 6e 61 6d | 65 22 5d 29 0a          | truenam|e"]).   |
+--------+-------------------------+-------------------------+--------+--------+